'Option Strict On
Option Explicit On
Friend Class clsPresupuesto
	
	Private MyPacienteNombre As String
	Private MyPacienteApellido As String
	Private MyNroHCPaciente As String
	Private MyObraSocial As String
	Private MyNroAfiliado As String
	Private MyMedico As String
	Private MyFecha As Date
	
	Private MyCodigo As String
	Private MyValor As String
	
	Private MyCirujia As String
	Private MyDiagnostico As String
	
	Private MyIncluye1 As String
	Private MyIncluye2 As String
	Private MyIncluye3 As String
	Private MyIncluye4 As String
	Private MyIncluye5 As String
	Private MyIncluye6 As String
	
	Private MyExcluye1 As String
	Private MyExcluye2 As String
	Private MyExcluye3 As String
	Private MyExcluye4 As String
	Private MyExcluye5 As String
	Private MyExcluye6 As String
	
	
	Public Property PacienteNombre() As String
		Get
			If Len(MyPacienteNombre) > 0 Then
                Return MyPacienteNombre
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyPacienteNombre = Trim(Value)
		End Set
	End Property
	
	
	Public Property PacienteApellido() As String
		Get
			'PacienteApellido = MyPacienteApellido
			If Len(MyPacienteApellido) > 0 Then
                Return MyPacienteApellido
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyPacienteApellido = Trim(Value)
		End Set
	End Property
	
	
	Public Property NroHCPaciente() As String
		Get
			'NroHCPaciente = MyNroHCPaciente
			If Len(MyNroHCPaciente) > 0 Then
                Return MyNroHCPaciente
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyNroHCPaciente = Trim(Value)
		End Set
	End Property
	
	
	Public Property ObraSocial() As String
		Get
			'ObraSocial = MyObraSocial
			If Len(MyObraSocial) > 0 Then
                Return MyObraSocial
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyObraSocial = Trim(Value)
		End Set
	End Property
	
	
	Public Property NroAfiliado() As String
		Get
			'NroAfiliado = MyNroAfiliado
			If Len(MyNroAfiliado) > 0 Then
                Return MyNroAfiliado
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyNroAfiliado = Trim(Value)
		End Set
	End Property
	
	
	Public Property Medico() As String
		Get
			'Medico = MyMedico
			If Len(MyMedico) > 0 Then
                Return MyMedico
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyMedico = Trim(Value)
		End Set
	End Property
	
	
	Public Property Fecha() As Date
		Get
            Return MyFecha
		End Get
		Set(ByVal Value As Date)
			MyFecha = Value
		End Set
	End Property
	
	
	Public Property Codigo() As String
		Get
			'Medico = MyMedico
			If Len(MyCodigo) > 0 Then
                Return MyCodigo
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyCodigo = Trim(Value)
		End Set
	End Property
	
	
	Public Property Valor() As String
		Get
			'Valor = MyValor
			If Len(MyValor) > 0 Then
                Return MyValor
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyValor = Trim(Value)
		End Set
	End Property
	
	
	Public Property Cirujia() As String
		Get
			'Cirujia = MyCirujia
			If Len(MyCirujia) > 0 Then
                Return MyCirujia
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyCirujia = Trim(Value)
		End Set
	End Property
	
	
	Public Property Diagnostico() As String
		Get
			'Diagnostico = MyDiagnostico
			If Len(MyDiagnostico) > 0 Then
                Return MyDiagnostico
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyDiagnostico = Trim(Value)
		End Set
	End Property
	
	
	Public Property Incluye1() As String
		Get
			'Incluye1 = MyIncluye1
			If Len(MyIncluye1) > 0 Then
                Return MyIncluye1
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyIncluye1 = Trim(Value)
		End Set
	End Property
	
	
	Public Property Incluye2() As String
		Get
			'Incluye2 = MyIncluye2
			If Len(MyIncluye2) > 0 Then
                Return MyIncluye2
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyIncluye2 = Trim(Value)
		End Set
	End Property
	
	
	Public Property Incluye3() As String
		Get
			'Incluye3 = MyIncluye3
			If Len(MyIncluye3) > 0 Then
                Return MyIncluye3
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyIncluye3 = Trim(Value)
		End Set
	End Property
	
	
	Public Property Incluye4() As String
		Get
			'Incluye4 = MyIncluye4
			If Len(MyIncluye4) > 0 Then
                Return MyIncluye4
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyIncluye4 = Trim(Value)
		End Set
	End Property
	
	
	Public Property Incluye5() As String
		Get
			'Incluye5 = MyIncluye5
			If Len(MyIncluye5) > 0 Then
                Return MyIncluye5
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyIncluye5 = Trim(Value)
		End Set
	End Property
	
	
	Public Property Incluye6() As String
		Get
			'Incluye6 = MyIncluye6
			If Len(MyIncluye6) > 0 Then
                Return MyIncluye6
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyIncluye6 = Trim(Value)
		End Set
	End Property
	
	
	Public Property Excluye1() As String
		Get
			'Excluye1 = MyExcluye1
			If Len(MyExcluye1) > 0 Then
                Return MyExcluye1
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyExcluye1 = Trim(Value)
		End Set
	End Property
	
	
	Public Property Excluye2() As String
		Get
			'Excluye2 = MyExcluye2
			If Len(MyExcluye2) > 0 Then
                Return MyExcluye2
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyExcluye2 = Trim(Value)
		End Set
	End Property
	
	
	Public Property Excluye3() As String
		Get
			'Excluye3 = MyExcluye3
			If Len(MyExcluye3) > 0 Then
                Return MyExcluye3
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyExcluye3 = Trim(Value)
		End Set
	End Property
	
	
	Public Property Excluye4() As String
		Get
			'Excluye4 = MyExcluye4
			If Len(MyExcluye4) > 0 Then
                Return MyExcluye4
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyExcluye4 = Trim(Value)
		End Set
	End Property
	
	
	Public Property Excluye5() As String
		Get
			'Excluye5 = MyExcluye5
			If Len(MyExcluye5) > 0 Then
                Return MyExcluye5
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyExcluye5 = Trim(Value)
		End Set
	End Property
	
	
	Public Property Excluye6() As String
		Get
			'Excluye6 = MyExcluye6
			If Len(MyExcluye6) > 0 Then
                Return MyExcluye6
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyExcluye6 = Trim(Value)
		End Set
	End Property
End Class